home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ AOL Sound 01.xpl < prev    next >
Text File  |  2000-03-17  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH"="Program Options\America Online"
  5. "NAME"="Default Sound #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.10"
  8. "TEXT 1"="#1 NewMail"
  9. "TEXT 2"="#2 Welcome"
  10. "TEXT 3"="#3 Goodbye"
  11. "TEXT 4"="#4 FileDone"
  12. "TEXT 5"="#5 BuddyIn"
  13. "DESCRIPTION 1"="You may change the sound to suit your preference. Use the full path and file name for your new preference."
  14. "DESCRIPTION 2"="The default value are:"
  15. "DESCRIPTION 3"="#1: gotmail.wav"
  16. "DESCRIPTION 4"="#2: welcome.wav"
  17. "DESCRIPTION 5"="#3: goodbye.wav"
  18. "DESCRIPTION 6"="#4: filedone.wav"
  19. "DESCRIPTION 7"="#5: buddyin.wav"
  20. "DESCRIPTION 8"="If you don't want any sound, clear the fields."
  21. "AUTHOR"="Ojatex@aol.com"
  22. "CONTACTURL"="http://members.aol.com/ojatex/"
  23. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  24. "COMMENT 1"=" "
  25. "COMMENT 2"="Hate AOL sounds? Then zip 'em & ship 'em!"
  26.  
  27.  
  28.  
  29. sPath="HKCU\AppEvents\Schemes\Apps\Waol\"
  30.  
  31. sV1="HKCU\AppEvents\Schemes\Apps\Waol\You've Got Mail\.Current\@"
  32. sV2="HKCU\AppEvents\Schemes\Apps\Waol\Welcome\.Current\@"
  33. sV3="HKCU\AppEvents\Schemes\Apps\Waol\Goodbye\.Current\@"
  34. sV4="HKCU\AppEvents\Schemes\Apps\Waol\File's Done\.Current\@"
  35. sV5="HKCU\AppEvents\Schemes\Apps\Waol\BuddyIn\.Current\@"
  36.  
  37. Sub Plugin_Initialize 
  38.  if RegPathExists(sPath) then
  39.     SetUIElement 1,RegReadValue(sV1)
  40.     SetUIElement 2,RegReadValue(sV2)
  41.     SetUIElement 3,RegReadValue(sV3)
  42.     SetUIElement 4,RegReadValue(sV4)
  43.     SetUIElement 5,RegReadValue(sV5)
  44.  else
  45.     Disable
  46.  end if
  47. End Sub
  48.  
  49.  
  50. Sub Plugin_CheckData(ElementIndex)
  51. End Sub
  52.  
  53.  
  54.  
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  Call RegWriteValue(sV1,GetUIElement(1),1)
  57.  Call RegWriteValue(sV2,GetUIElement(2),1)
  58.  Call RegWriteValue(sV3,GetUIElement(3),1)
  59.  Call RegWriteValue(sV4,GetUIElement(4),1)
  60.  Call RegWriteValue(sV5,GetUIElement(5),1)
  61. End Sub
  62.  
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67.  
  68.  
  69.